É um script simples. Criado para iniciantes.

Não é nenhum [nmap] mas é bem legal e funcional.

Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.

Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.

• Download SimplePortScanner.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
#--------------------------------------------------------------------------------------------------------
#
# @Author: breek
# @Code: SimplePortScanner.pl
# @Version: 0.1.0
# @Date: 22/02/2012
#
#--------------------------------------------------------------------------------------------------------

#===============================================================#
# É um script simples. Criado para iniciantes.
# Não é nenhum [nmap] mas é bem legal e funcional. 
#
# Esta bem comentado. É claro que esta em [inglês], mas
# é para não perder o costume. Usei o [Google Tradutor],
# caso haja alguma palavra errada é culpa é dele.
#
# Criado para ser modificado. Cada modificação mexa na versão.
# NÃO ALTERE MEU NOME!!
# NÃO ALTERE O NOME DO SCRIPT!!
#===============================================================#

use strict;
use warnings;
use IO::Socket;

#--------------------------------------------------------------------------------------------------------
#__BEGIN_MAIN__
#
# Name: Main
#
# Purpose: Initializes the script.
# 
# Input: $Var_IP
#           $Var_BeginPort
#           $Var_EndPort
#
# Output: $Var_IP
#             $Var_Scanning
#

#-----------------------------
#Global variables
#
my $Var_IP;                  # Recebe o [Endereço IP]    - USUARIO
my $Var_BeginPort;       # Recebe a [Porta inicial]     - USUARIO
my $Var_EndPort;          # Recebe a [Porta final]       - USUARIO
my $Var_Scanning;        # Escanea as portas            - SCRIPT
my $Var_FindOpenPort;  # Recebe as portas abertas - SCRIPT
#
#
#-----------------------------

system( "cls" );

# Recebe o [Endereço IP] #
print "Enter the IP address: ";
$Var_IP = <>;
chomp $Var_IP;

# Recebe a [Porta inicial] #
print "Enter the starting port: ";
$Var_BeginPort = <>;
chomp $Var_BeginPort;

# Recebe a [Porta final] #
print "Enter the ending port: ";
$Var_EndPort = <>;
chomp $Var_EndPort;

# Iniciando escaneamento #
print "\n\nScanning IP [ $Var_IP ]. \n\n";

# Escaneando #
for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ )
{
   
   $Var_FindOpenPort = IO::Socket::INET->new(
                                                                           PeerAddr => $Var_IP,              # Endereço IP
                                                                           PeerPort => "$Var_Scanning",  # Numero da porta
                                                                           Proto => "TCP",                       # Protocolo
                                                                     );
         
   # Porta aberta encontrada #         
   if( $Var_FindOpenPort )
   {
      print "[+] Port [$Var_Scanning] is open. \n";
   }
   
}

# Finalizando script #
print "\nScanning...DONE. \n";
exit;

#__END_MAIN__
#--------------------------------------------------------------------------------------------------------

SiteCheckSMS - Monitore seu website e receba alertas por SMS

Carregando automaticamente wireless via ndiswrapper II

Web Fuzzer em Perl

Forensic Net Tools

UDP flood em Perl!

Nenhum comentário foi encontrado.